home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t2.d64 / format.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  811b  |  38 lines
  1. 5 REM FORMAT
  2. 6 REM BY BOB HUFFMAN
  3. 10 FOR R=1 TO 25
  4. 20 B=INT(6*RND(1))
  5. 30 B=10^B
  6. 40 A=RND(1)*B
  7. 50 G=A:F=9.3:GOSUB 10000
  8. 60 A$=G$:PRINT A TAB(16) A$:NEXT:END
  9. 70 :
  10. 80 :
  11. 90 :
  12. 10000 G$="":W=INT(F):D=INT((F-W)*10+.5)
  13. 10010 IF D=0 THEN 10170
  14. 10020 IF G<10^(W-D-1) THEN 10050
  15. 10030 FORN=1TO (W-D-1):G$=G$+"*":NEXT:G$=G$+"."
  16. 10040 FORN=1 TO D:G$=G$+"*":NEXT:RETURN
  17. 10050 P=INT(10^D)
  18. 10055 G2=G:IF G<.01 THEN G2=G+1
  19. 10060 G$=STR$(INT(G2*P+.5)/P)
  20. 10070 G$=RIGHT$(G$,LEN(G$)-1)
  21. 10080 IFG<.01 THEN G$=RIGHT$(G$,LEN(G$)-1)
  22. 10090 FOR N=1 TO LEN(G$):IF MID$(G$,N,1)="."THEN 10130
  23. 10100 NEXT
  24. 10110 G$=G$+"."
  25. 10120 FOR N=1 TO D:G$=G$+"0":NEXT:GOTO 10150
  26. 10130 G$=LEFT$(G$,N+D)
  27. 10135 IF D=LEN(G$)-N THEN 10150
  28. 10140 FOR L=LEN(G$)-N+1 TO D:G$=G$+"0":NEXT
  29. 10150 IF LEFT$(G$,1)="." THEN G$="0"+G$
  30. 10155 IF LEN(G$)=W THEN RETURN
  31. 10160 FOR N=LEN(G$)+1 TO W:G$=" "+G$:NEXT:RETURN
  32. 10170 IF G<10^W THEN 10190
  33. 10180 FOR N=1 TO W:G$=G$+"*":NEXT:RETURN
  34. 10190 G$=STR$(INT(G+.5))
  35. 10200 G$=RIGHT$(G$,LEN(G$)-1)
  36. 10210 IF LEN(G$)=W THEN RETURN
  37. 10220 FOR N=LEN(G$)+1 TO W:G$=" "+G$:NEXT:RETURN
  38.